home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9109a.d64
/
miniwrite 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
681b
|
21 lines
1 PRINT CHR$(14):OPEN 1,4,2:POKE 646,5:PRINT" [146]";:POKE 53280,0:POKE 53281,0
2 A$="":GET A$:IF A$="" AND PEEK(653)<>4 THEN 2
3 IF PEEK(653)AND4 THEN POKE 53280,1:GOTO 10
4 POKE 199,0:IF A$="[177]" THEN CLOSE 1:END
5 IF A$=CHR$(20) THEN PRINT CHR$(20)CHR$(20);:A$=CHR$(127):GOTO 10
6 IF A$=CHR$(13) OR A$=CHR$(10) OR A$=>" "THEN PRINT CHR$(20)A$;:GOTO 9
7 IF PEEK(653) AND 4=0 THEN 2
8 PRINT CHR$(20)"#";MID$(STR$(ASC(A$+CHR$(0))),2);"[146]";
9 PRINT" [146]";:PRINT#1,A$;:GOTO 2
10 C$(1)="":C$(2)="":C=0:GET A$:IF(A$<"0" OR A$>"9") THEN 10
11 IF PEEK(653) AND 4 THEN POKE 53280,0:IF PEEK(653) AND 4 THEN GOSUB 19:GOTO 17
12 IF PEEK(53280)=0 THEN 17
13 GET B$:IF B$="" THEN 11
14 C=C+1:IF C>2 THEN 16
15 C$(C)=B$:IF C<2 THEN 11
16 POKE 53280,0
17 C$=A$+C$(1)+C$(2):A=VAL(C$+CHR$(0)):IF A>255 THEN A$="":GOTO 2
18 A$=CHR$(A):PRINT CHR$(20)"#";MID$(STR$(A),2)"[146]";:GOTO 9
19 IF PEEK(653) AND 4 THEN 19
20 RETURN